﻿Public Class CQuyenDTO

    Private m_iMa As Integer
    Public Property Ma() As Integer
        Get
            Return m_iMa
        End Get
        Set(ByVal value As Integer)
            m_iMa = value
        End Set
    End Property


    Private m_iMaQuyenHan As Integer
    Public Property MaQuyenHan() As Integer
        Get
            Return m_iMaQuyenHan
        End Get
        Set(ByVal value As Integer)
            m_iMaQuyenHan = value
        End Set
    End Property


    Private m_isRibbonBarDuLieu As Boolean
    Public Property RibbonBarDuLieu() As Boolean
        Get
            Return m_isRibbonBarDuLieu
        End Get
        Set(ByVal value As Boolean)
            m_isRibbonBarDuLieu = value
        End Set
    End Property


    Private m_isRibbonBarQuanLySach As Boolean
    Public Property RibbonBarQuanLySach() As Boolean
        Get
            Return m_isRibbonBarQuanLySach
        End Get
        Set(ByVal value As Boolean)
            m_isRibbonBarQuanLySach = value
        End Set
    End Property


    Private m_isRibbonBarMuonTraSach As Boolean
    Public Property RibbonBarMuonTraSach() As Boolean
        Get
            Return m_isRibbonBarMuonTraSach
        End Get
        Set(ByVal value As Boolean)
            m_isRibbonBarMuonTraSach = value
        End Set
    End Property


    Private m_isRibbonBarThuTienPhat As Boolean
    Public Property RibbonBarThuTienPhat() As Boolean
        Get
            Return m_isRibbonBarThuTienPhat
        End Get
        Set(ByVal value As Boolean)
            m_isRibbonBarThuTienPhat = value
        End Set
    End Property


    Private m_isRibbonBarNhanVien As Boolean
    Public Property RibbonBarNhanVien() As Boolean
        Get
            Return m_isRibbonBarNhanVien
        End Get
        Set(ByVal value As Boolean)
            m_isRibbonBarNhanVien = value
        End Set
    End Property


    Private m_isRibbonBarTheThuVien As Boolean
    Public Property RibbonBarTheThuVien() As Boolean
        Get
            Return m_isRibbonBarTheThuVien
        End Get
        Set(ByVal value As Boolean)
            m_isRibbonBarTheThuVien = value
        End Set
    End Property


    Private m_isRibbonBarTimKiemTheoSach As Boolean
    Public Property RibbonBarTimKiemTheoSach() As Boolean
        Get
            Return m_isRibbonBarTimKiemTheoSach
        End Get
        Set(ByVal value As Boolean)
            m_isRibbonBarTimKiemTheoSach = value
        End Set
    End Property


    Private m_isRibbonBarTimKiemTheoDocGia As Boolean
    Public Property RibbonBarTimKiemTheoDocGia() As Boolean
        Get
            Return m_isRibbonBarTimKiemTheoDocGia
        End Get
        Set(ByVal value As Boolean)
            m_isRibbonBarTimKiemTheoDocGia = value
        End Set
    End Property


    Private m_isRibbonBarTinhHinhChoMuonSach As Boolean
    Public Property RibbonBarTinhHinhChoMuonSach() As Boolean
        Get
            Return m_isRibbonBarTinhHinhChoMuonSach
        End Get
        Set(ByVal value As Boolean)
            m_isRibbonBarTinhHinhChoMuonSach = value
        End Set
    End Property


    Private m_isRibbonTabIemAdmin As Boolean
    Public Property RibbonTabIemAdmin() As Boolean
        Get
            Return m_isRibbonTabIemAdmin
        End Get
        Set(ByVal value As Boolean)
            m_isRibbonTabIemAdmin = value
        End Set
    End Property


    Private m_isRibbonTabItemBlackAdmin As Boolean
    Public Property RibbonTabItemBlackAdmin() As Boolean
        Get
            Return m_isRibbonTabItemBlackAdmin
        End Get
        Set(ByVal value As Boolean)
            m_isRibbonTabItemBlackAdmin = value
        End Set
    End Property

    Public Sub New()

    End Sub

    Public Sub New(ByVal reader As IDataReader)
        m_iMa = reader("Ma")
        m_iMaQuyenHan = reader("MaQuyenHan")
        m_isRibbonBarDuLieu = reader("RibbonBarDuLieu")
        m_isRibbonBarMuonTraSach = reader("RibbonBarMuonTraSach")
        m_isRibbonBarNhanVien = reader("RibbonBarNhanVien")
        m_isRibbonBarQuanLySach = reader("RibbonBarQuanLySach")
        m_isRibbonBarTheThuVien = reader("RibbonBarTheThuVien")
        m_isRibbonBarThuTienPhat = reader("RibbonBarThuTienPhat")
        m_isRibbonBarTimKiemTheoDocGia = reader("RibbonBarTimKiemTheoDocGia")
        m_isRibbonBarTimKiemTheoSach = reader("RibbonBarTimKiemTheoSach")
        m_isRibbonBarTinhHinhChoMuonSach = reader("RibbonBarTinhHinhChoMuonSach")
        m_isRibbonTabIemAdmin = reader("RibbonTabItemAdmin")
        m_isRibbonTabItemBlackAdmin = reader("RibbonTabItemBlackAdmin")
        m_isRibbonBarQuanLySach = reader("RibbonBarQuanLySach")
    End Sub










End Class
